home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 January & February / rerun-1987-01-02.d64 / notepad 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  531 b   |  14 lines
  1. 1 rem c-64 simple append
  2. 10 ml=828:q$=chr$(34)
  3. 15 for i=0 to 85:read by:poke ml+i,by:ck=ck+by:next
  4. 20 if ck <> 10054 then print"data error!":stop
  5. 25 print"syntax: sys" ml chr$(157) chr$(44) q$ "filename" q$
  6. 30 new
  7. 35 data 32,253,174,32,115,0,166,122,164,123,134,187,132,188
  8. 40 data 232,134,183,32,115,0,240,2,208,249,165,122,56,229
  9. 45 data 183,133,183,169,8,133,186,32,51,165,166,34,164,35
  10. 50 data 169,0,133,185,32,213,255,176,21,134,45,132,46,134
  11. 55 data 47,132,48,134,49,132,50,32,51,165,160,106,32,47
  12. 60 data 241,96,72,160,0,32,47,241,104,24,105,48,32,210
  13. 65 data 255,96
  14.